home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / tex / inputs / phone.tex < prev    next >
Encoding:
Text File  |  1991-05-21  |  10.4 KB  |  343 lines
  1. %
  2. % Copyright 1990, Daniel R. Greening.  Copying is permitted for any
  3. % non-commercial purpose as long as this copyright and the
  4. % documentation are retained on copies and derivative works.  No
  5. % warrantee is expressed or implied, and the author makes no claims
  6. % about the usefulness, applicability, or correctness of the program.
  7. %
  8. % Greening Phonelist TeX Format.
  9. %
  10. % This thing is pretty cool, if I do say so myself.  I've used it for
  11. % several years.  It formats phone numbers into a 9x9 block that looks
  12. % like the picture that follows.  The picture is simplified.  There is
  13. % enough room for decent sized names, long phone numbers (with area
  14. % or country-codes and extensions), and addresses with 9-digit
  15. % zipcodes.  Print out the phone list example included and you'll
  16. % see.
  17. %
  18. %     ------------------+------------------+------------------
  19. %    | sally W 784-7861    | dan   W 784-7861 | zeke  W 784-7861 |
  20. %    |       H 271-2629 |       H 271-2629 |       H 271-2629 |
  21. %    |   12 Foster Ct   |   12 Foster Ct   |   12 Foster Ct   |
  22. %    |   New York,NY 10 |   New York,NY 10 |   Topeka,KS 1054 |
  23. %    | georgeW 444-adff |                  | clem  W 444-adff |
  24. %    | schoolW 277-2222 |   KANSAS         | jethroW 277-2222 |
  25. %    | abe   W 331-3333 |                  | abigaiH 331-3333 |
  26. %    | ron   W 231-2341 | jeb   W 231-2341 | emmy  W 231-2341 |
  27. %    |          |           |                  |
  28. %     ------------------+------------------+------------------
  29. %    |   MICHIGAN       | dan   W 784-7861 |                  |
  30. %    | dan   H 463-5788 |       H 271-2629 |   WASHINGTON     |
  31. %    |   5582 Golfridge |   12 Foster Ct   |                  |
  32. %    |   Alma, MI,48801 |   Lansing,MI 432 | nancy W 234-2223 |
  33. %    |       W 623-3330 | georgeW 444-adff | georgeW 444-adff |
  34. %    | schoolW 277-2222 | schoolW 277-2222 | schoolW 277-2222 |
  35. %    | abe   W 331-3333 | abe   W 331-3333 | abe   W 331-3333 |
  36. %    | ron   W 231-2341 | ron   W 231-2341 | ron   W 231-2341 |
  37. %    |            |           |                  |
  38. %     ------------------+------------------+------------------
  39. %    | jeff  W 784-7861 |       W 784-7861 | jack  W 784-7861 |
  40. %    |       H 271-2629 |       H 271-2629 |       H 271-2629 |
  41. %    |   12 Foster Ct   |   12 Foster Ct   |   12 Foster Ct   |
  42. %    |   New York,NY 10 |   New York,NY 10 |   New York,NY 10 |
  43. %    | georgeW 444-adff | georgeW 444-adff | georgeW 444-adff |
  44. %    | schoolW 277-2222 | schoolW 277-2222 | schoolW 277-2222 |
  45. %    | abe   W 331-3333 | abe   W 331-3333 | abe   W 331-3333 |
  46. %    | ron   W 231-2341 | ron   W 231-2341 | ron   W 231-2341 |
  47. %    |            |           |              |
  48. %     ------------------+------------------+------------------
  49. %
  50. % I typically take the output and cut it along the horizontal dividing
  51. % lines, then staple the thing together on the left.  If you fold it
  52. % in half, it fits in a pocket or a largish wallet.  If you want to
  53. % stick it in a smaller wallet (and you are patient), you can tape the
  54. % horizontal strips end-to-end and fan-fold it.  It then occupies the
  55. % space of a credit-card.
  56. %
  57. % HOW TO USE:
  58. %
  59. % Precede lines that contain a country, state or province header with 
  60. %  ``$''.  This is an example header for the sovereign state of California:
  61. %
  62. %    $ CALIFORNIA
  63. %
  64. % Lines which contain a phone number work like this:
  65. %
  66. %    person-name ; cat ; phone-number
  67. %
  68. % The ``cat'' is typically a one or two letter abbreviation, as in
  69. % ``W'' for work, ``H'' for home, ``FX'' for FAX, ``P'' for parents,
  70. % etc.  The phone-number field defined in this macro package is large
  71. % enough to accommodate the number ``999-999-9999x9999''.  Here is an
  72. % example: 
  73. %
  74. %    Alan Turing      ; W ; 213-825-2266
  75. %                     ; H ; 914-784-7861
  76. %
  77. % Finally, you indicate an address with the prefix ``>''.  This simply
  78. % indents the text which follows by one \quad.  Here's a bigger
  79. % example:
  80. %
  81. %    $ CALIFORNIA
  82. %
  83. %    Alan Turing      ; W ; 213-825-2266
  84. %    > UCLA Computer Science Dept.
  85. %    > Los Angeles, CA 90024-1647
  86. %
  87. %                     ; H ; 914-784-7861
  88. %    > 1243 Blenheim Lane
  89. %    > Los Angeles, CA 90025
  90. %    
  91. % Blank lines essentially mean nothing when the occur between these
  92. % three constructs.
  93. %
  94. % If you want to include formatted paragraphs, you can do so, but you
  95. % must terminate them with ``\par'' or with a blank line.
  96. %
  97. % Enjoy.  If you make any interesting modifications, let me know.
  98. %
  99. % Dan Greening / dgreen@cs.ucla.edu
  100. %
  101. \font\rm=cmr5
  102. \font\bf=cmbx5
  103. % The following produces 3 column, 3 row output.
  104. \hsize=2.0in
  105. \vsize=3.0in
  106. \voffset=-0.75in
  107. \hoffset=-0.5in
  108. \newdimen\fullhsize\global\fullhsize=7.5in
  109. \newdimen\fullvsize\global\fullvsize=10.5in
  110. \newdimen\hboxsize\global\hboxsize=\hsize\advance\hboxsize by 0.5in
  111. \newdimen\vboxsize\global\vboxsize=\vsize\advance\vboxsize by 0.5in
  112. \def\fullhbox{\hbox to\fullhsize}
  113. \def\fullvbox{\vbox to\fullvsize}
  114. \newcount\colcount \global\colcount=11
  115. \newcount\rowcount \global\rowcount=5
  116. \baselineskip=6 pt plus 1pt
  117. \parindent 0pt
  118. \newcount\boxnum
  119. %
  120. % Define argument to accept ^^M as a terminator for a macro (such as
  121. % ;, $, and >.
  122. %
  123. \def\parsearg #1{\let\next=#1\begingroup\obeylines\futurelet\temp\parseargx}
  124. \def\parseargx{%
  125. \ifx \obeyedspace\temp \aftergroup\parseargdiscardspace \else%
  126. \aftergroup \parseargline %
  127. \fi \endgroup}
  128. {\obeyspaces %
  129. \gdef\parseargdiscardspace {\begingroup\obeylines\futurelet\temp\parseargx}}
  130. \gdef\obeyedspace{\ }
  131. \def\parseargline{\begingroup \obeylines \parsearglinex}
  132. {\obeylines %
  133. \gdef\parsearglinex #1^^M{\endgroup \next {#1}}}
  134. %
  135. \def\initcolbox#1 {\global\setbox#1=\vbox to\vboxsize{\hrule\vss\hbox %
  136. to\hboxsize{\vrule height\vboxsize\hfil\vrule height\vboxsize}\vss\hrule}}
  137. \def\initcolboxes{ \initcolbox11  \initcolbox12  \initcolbox13 \initcolbox14
  138.                    \initcolbox15 \initcolbox16 \initcolbox17
  139.            \initcolbox18 \initcolbox19 }
  140. \def\outputpage{\shipout\fullhbox{\fullvbox{\box11\vss\box14\vss\box17}\hss
  141.                                   \fullvbox{\box12\vss\box15\vss\box18}\hss
  142.                                   \fullvbox{\box13\vss\box16\vss\box19}}}
  143. \initcolboxes
  144. \output={
  145.   \global\setbox\colcount=\vbox to \vboxsize
  146.        {\hrule width\hboxsize\vss\hbox to \hboxsize
  147.            {\vrule height\vboxsize\hss\columnbox\hss\vrule height\vboxsize}
  148.            \vss\hrule width\hboxsize}
  149. % Current column is now saved.
  150.   \message{(\the\colcount)}
  151.   \ifnum\colcount=19
  152.         \global\colcount=11
  153.         \outputpage
  154.         \advancepageno
  155.     \initcolboxes
  156.      \else
  157.         \global\advance\colcount by 1
  158.      \fi
  159. % For the very end.
  160.   \ifnum\outputpenalty>-100000 \else
  161.      \supereject\outputpage\fi
  162. }
  163. \def\columnbox{\vbox to\vboxsize{\vfill\hbox{\vbox to\vsize{\unvbox255\vfill}}\vfill}}
  164. %
  165. % Here we define ``$'' ``>'' and ``;'' as active macro
  166. % characters.  They serve as separators for fields in our phone list.
  167. %
  168. \rm
  169.   \newdimen\widthb
  170.   \global\setbox0=\hbox{WE}
  171.   \widthb=\wd0
  172.   \newdimen\widthc
  173.   \global\setbox0=\hbox{999-999-9999x9999}
  174.   \widthc=\wd0
  175. %
  176. \catcode`\;=\active
  177. {
  178.   \catcode`\;=11
  179.   \gdef\phonelineyyy #1;#2;#3\finish{
  180.        \catcode`\;=\active\hfill
  181.        \hbox to\widthb{\hfil\ignorespaces #1\hfil}
  182.        \hbox to 0.05in{\hfil}
  183.        \hbox to\widthc{\ignorespaces #2\hfil}
  184.        \par}
  185.   \gdef\phoneline #1{\catcode`\;=11\phonelineyyy #1;;;\finish}
  186. }
  187. \outer\def;{\catcode`\;=11\parsearg\phoneline}
  188. %
  189. \catcode`\>=\active
  190. \def\addressline#1{\hbox to\hsize{\quad\ignorespaces #1\hfil}\par}
  191. \def>{\parsearg\addressline}
  192. %
  193. \catcode`\$=\active
  194. \def\arealine#1{\vbox to 1pt{\vfil}\hbox to\hsize{\hfil{\bf\ignorespaces #1}\hfil}\vbox to 1pt{\vfil}}
  195. \def${\parsearg\arealine}
  196.  
  197. $  SOUTHERN CALIFORNIA
  198.  
  199. Daniel R. Greening ; W ; 213-825-2266
  200.            ; H ; 213-829-7726
  201. > 3436 Boelter Hall
  202. > Los Angeles, CA 90024-1596
  203. ISI ; W ; 213-822-1511
  204.  
  205. $ NORTHERN CALIFORNIA
  206.  
  207. Avalon Ventures ; W ; 415-960-1879
  208. Sierra Club ; W ; 415-776-2211
  209. UC Student Assn ; W ; 916-447-8272
  210.  
  211. $ WASHINGTON, DC
  212.  
  213. Rep. Barney Frank ; W ; 202-225-5931
  214. NGLTF ; W ; 202-332-6483
  215. House of Reps ; W ; 202-225-3121
  216. National Park Service ; W ; 202-343-4747
  217. US Student Assn ; W ; 202-775-8943
  218.  
  219. $ GEORGIA
  220.  
  221. Georgia Inst. Tech. ; W ; 404-894-2300
  222.  
  223. $  LOUISIANA
  224.  
  225. Bruce D. Shriver ; W ; 318-231-5811
  226. > Editor-in-Chief, IEEE Computer
  227. > U. of Southwestern Louisiana
  228. > Drawer 42730
  229. > Lafayette, LA 70504-2730
  230. > shriver@usl.edu
  231.  
  232. $ MARYLAND
  233.  
  234. Ober Travel ; W ; 301-496-6676
  235.  
  236. $  MASSACHUSETTS
  237.  
  238. Appalachian Mt.Club ;  ; 617-523-0636
  239. ATHENA ; W ; 617-253-1300
  240. Kluwer Acad. Pub.; W ; 617-871-6600
  241. MIT LCS ; W ; 617-253-5851
  242. REI ; W ; 617-944-5103
  243. > 279 SalemSt.
  244. > Boston,MA
  245. > (exit 40 off Rt128)
  246.  
  247. $  NEW HAMPSHIRE
  248.  
  249. AMC Hut Reservations ;  ; 603-466-2727
  250. Warren Rudman ; W ; 603-666-7591
  251.  
  252. $  NEW MEXICO
  253.  
  254. LANL ; W ; 505-667-5061
  255. LANL Library ; W ; 505-667-4175
  256. > 8am-4.30pm m-f
  257. LANL CNLS ; W ; 505-667-1444
  258. Santa Fe Institute ; W ; 505-984-8800
  259. > 1120 Canyon Road
  260. > Santa Fe, NM 87501
  261.  
  262. $  NEW YORK
  263.  
  264. AAA ; W ; 212-586-1166
  265. AAA autoTripMaps ; W ; 914-997-7744
  266. ACM ; W ; 212-869-7440
  267. B\&H Photo ; W ; 212-807-7474
  268. Bee Line ; W ; 682-2020
  269. > 14 N
  270. Bee Line/lost+found ; W ; 376-6361
  271. Carey Bus ; W ; 212-286-9766
  272. > lost/found 718-632-0529
  273. Conran's Habitat ; W ; 914-683-5858
  274. > I 287 E to exit 5.  take 2nd left
  275. Cornell University ; W ; 607-255-2000
  276. Daniel R. Greening ; W ; 914-784-7861
  277.            ; H ; 914-271-2629
  278. > IBM T.J. Watson Research Center
  279. > P.O.Box 704
  280. > Yorktown Heights, NY 10598-0704
  281. IBM Hawthorne ; W ; 914-784-7000
  282.  ; FX; 914-784-7455
  283. > 30 Saw Mill River Road
  284. > Hawthorne, NY 10532
  285. > mail:
  286. > P.O.Box 704
  287. > Yorktown Heights, NY 10598
  288. Kayson Jeep ; W ; 914-271-5105
  289.  ; FX; 914-271-5581
  290. NYNEX ; W ; 914-964-6500
  291. Oliva Car Service ; W ; 914-769-8881
  292. Ossining Pub Lib ; W ; 914-941-2416
  293. > 9a n to 133 millwood.
  294. > bear right. thru underpass
  295. > 53 Croton Avenue.
  296. > m-th9.30-9
  297. > f,sa9.30-5.30,su1-5
  298. REI ; W ; 914-632-9222
  299. > 500 Main St.
  300. > New Rochelle, NY
  301. French Consulate ; W ; 212-606-3600
  302. Hertz ; W ; x23789
  303.  ; W ; 914-948-3024
  304. MetroNorth Commuter ;  ; 800-522-5624
  305. New York Tax Board ; W ; 800-462-8100
  306.  ; W ; 518-438-1073
  307. New York Times ; W ; 800-631-2500
  308. NYU Info ; W ; 212-998-4636
  309. NYU Bookstore ; W ; 212-998-4656
  310. NYU Book orders ; W ; 212-998-4678
  311. >  
  312. Oscar Wilde Books ; W ; 212-255-8097
  313. Sailing Info ; W ; 914-271-6868
  314. Courtsports ; W ; 914-592-3005
  315.  
  316. $  NORTH CAROLINA
  317.  
  318. MCNC ; W ; 919-248-1800
  319. > 3021 Cornwallis Road
  320. > P.O. Box 12889
  321. > Research Triangle Park, NC 27709-2889
  322.  
  323. $  OHIO
  324.  
  325. > The Ohio Supercomputer Center
  326. > 1224 Kinnear Road
  327. > Columbus, OH 43212-1154
  328. $ TEXAS
  329.  
  330. SEMATECH ; W ; 512-356-3500
  331. > SEMATECH
  332. > 2706 MontopolisDr.
  333. > Austin,TX 78741
  334.  
  335. $  WASHINGTON
  336.  
  337. Lake Chelan Nat.Rec. ; W ; 509-682-4711
  338.  
  339. \end
  340. % Local Variables
  341. % tab-width:25
  342. % End
  343.